home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / unity331.zip / CLIPFILT.PAS < prev    next >
Pascal/Delphi Source File  |  1991-09-19  |  1KB  |  51 lines
  1. Program ClipperFilter;
  2.  
  3. Var
  4.   Line   : String;
  5.   Msg    : String;
  6.   Source : Text;
  7.   Row    : Word;
  8.   Col    : Word;
  9.   Index  : Word;
  10.   Result : Integer;
  11.   FileName : String;
  12.  
  13. Begin
  14.   FileName := '';
  15.   Assign(Source,ParamStr(1));
  16.   {$I-}
  17.   Reset(Source);
  18.   {$I+}
  19.   If IOResult <> 0 Then Halt(0);
  20.   While Not Eof(Source) Do
  21.   Begin
  22.     ReadLn(Source,Line);
  23.     If (Pos('Compiling ',Line) > 0) And (FileName = '')
  24.       Then Begin
  25.         While Line[1] = ' ' Do Delete(Line,1,1);
  26.         Delete(Line,1,10);
  27.         FileName := Line;
  28.       End
  29.     Else If Pos('line ',Line) = 1 Then
  30.     Begin
  31.       Delete(Line,1,5);
  32.       Index := Pos(':',Line);
  33.       If Index > 0 Then
  34.       Begin
  35.         Val(Copy(Line,1,Pred(Index)),Row,Result);
  36.         If Result = 0 Then
  37.         Begin
  38.           Delete(Line,1,Index+2);
  39.           Msg := Line;
  40.           ReadLn(Source,Line);
  41.           ReadLn(Source,Line);
  42.           Col := Pos('^',Line);
  43.           WriteLn(FileName,', ',Row,', ',Col,', ',Msg);
  44.         End;
  45.       End;
  46.     End;
  47.   End;
  48.   Close(Source);
  49.   Erase(Source);
  50. End.
  51.